home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 July / Software of the Month - Ultimate Collection Shareware 263.iso / pc / Xtras / Widget Wizard / -INSTRCT.DIR / 00005_Script_Primary Movie Script < prev    next >
Text File  |  1997-05-10  |  4KB  |  147 lines
  1. global gPrevSprite, gNextSprite, gInstructStep, gInstructTotal, gWizWindow
  2. global gInstructRect, gInstructionWindow
  3. global gInstructStart --name of member which will be the first instructional text displayed.  this value is determined in Widget Wizard
  4. global gTextSprite --sprite that text is displayed in
  5. global gPageList  --list of pages(text cast members) to be displayed in gTextSprite
  6.  
  7. on startMovie
  8.   initText
  9.   initButtons
  10.   setButtons
  11.   
  12.   displayNewText  
  13. end startMovie
  14.  
  15.  
  16. on closeWindow
  17.   tell the stage 
  18.     set gInstructRect = the rect of gInstructionWindow
  19.     --    put the rect of gInstructionWindow --DEBUG
  20.   end tell
  21.   
  22.   set the text of member "PageInfo" = " "
  23.   forget window "Instructions"
  24. end closeWindow
  25.  
  26.  
  27. on initText
  28.   set gTextSprite = 1
  29.   puppetSprite gTextSprite, TRUE
  30. end initText
  31.  
  32.  
  33. on makePageList
  34.   set myOldDelimiter = the itemDelimiter
  35.   set the itemDelimiter = "-"
  36.   set mySection = item 1 of gInstructStart
  37.   set the itemDelimiter = myOldDelimiter
  38.   
  39.   set myMemberName = gInstructStart
  40.   set gPageList = []
  41.   
  42.   repeat while myMemberName CONTAINS mySection
  43.     add gPageList, myMemberName
  44.     set myMemberName = the name of member((the number of member myMemberName) + 1)
  45.   end repeat
  46.   
  47.   set gInstructTotal = count(gPageList)
  48.   set gInstructStep = 1
  49. --  put gPageList --DEBUG lcv64
  50. end makePageList
  51.  
  52.  
  53. on initButtons
  54.   set gPrevSprite = 2
  55.   set gNextSprite = 3
  56.   puppetSprite gPrevSprite, TRUE
  57.   puppetSprite gNextSprite, TRUE
  58. end initButtons
  59.  
  60.  
  61. on setButtons
  62.   if gInstructTotal = 1 then
  63.     set the member of sprite gPrevSprite = the number of member "PrevDim"
  64.     set the member of sprite gNextSprite = the number of member "NextDim"
  65.   else if gInstructStep = 1 then
  66.     set the member of sprite gPrevSprite = the number of member "PrevDim"
  67.     set the member of sprite gNextSprite = the number of member "NextNormal"
  68.   else if gInstructStep = gInstructTotal then
  69.     set the member of sprite gPrevSprite = the number of member "PrevNormal"
  70.     set the member of sprite gNextSprite = the number of member "NextDim"
  71.   else
  72.     set the member of sprite gPrevSprite = the number of member "PrevNormal"
  73.     set the member of sprite gNextSprite = the number of member "NextNormal"
  74.   end if
  75.   
  76.   setPage 
  77. end setButtons
  78.  
  79.  
  80. on displayNewText
  81.   makePageList
  82.   set the member of sprite gTextSprite = gInstructStart
  83.   setButtons 
  84. end displayNewText
  85.  
  86.  
  87. on setPage
  88.   set the text of member "PageInfo" = "Page" && gInstructStep && "of" && gInstructTotal
  89. end setPage
  90.  
  91.  
  92. on goNext
  93.   set gInstructStep = gInstructStep + 1
  94.   set the member of sprite gTextSprite = getAt(gPageList, gInstructStep)
  95. --  put getAt(gPageList, gInstructStep) --DEBUG! lcv64
  96.   setButtons  
  97. end goNext
  98.  
  99.  
  100. on goPrev
  101.   set gInstructStep = gInstructStep - 1
  102.   set the member of sprite gTextSprite = getAt(gPageList, gInstructStep)
  103. --  put getAt(gPageList, gInstructStep) --DEBUG! lcv64
  104.   setButtons  
  105. end goPrev
  106.  
  107.  
  108. on doButtonHilite actionHandler
  109.   
  110.   set myNormalButton = the castNum of sprite(the clickon)
  111.   set myHiliteButton = myNormalButton + 1
  112.   
  113.   set the castNum of sprite (the clickon) = myHiliteButton
  114.   updateStage
  115.   
  116.   repeat while the stillDown
  117.     if rollover (the clickon) then set the castNum of sprite(the clickon) = myHiliteButton
  118.     else set the castNum of sprite(the clickon) = myNormalButton
  119.     updateStage
  120.   end repeat
  121.   
  122.   set the castNum of sprite (the clickon) = myNormalButton
  123.   updateStage
  124.   
  125.   if rollover (the clickon) then 
  126.     if not voidP(actionHandler) then do actionHandler
  127.   end if
  128. end doButtonHilite
  129.  
  130.  
  131.  
  132. on updateWindow
  133.   setButtons
  134.   
  135.   if objectP(window gWizWindow) then
  136. --    put "telling window" && gWizWindow lcv64
  137.     tell window gWizWindow
  138.       stuffInstructions
  139.     end tell
  140.   else
  141.     put "telling stage"
  142.     tell the stage
  143.       stuffInstructions
  144.     end tell
  145.   end if
  146. end updateWindow
  147.